function [Xe De Xt Dt indice_entrenamiento indice_prueba]  = getMatrizTrainigMatrizTest(fs,d)
    
da = sort(d);
numeroClases=da(end);
indice_prueba = [];
indice_entrenamiento =[];
%Buscaremos donde estan los indices para obtener las muestras aleatoreas
for i=1:numeroClases
indices = find(d==i);
cantidad_class = length(indices);
r = randperm(cantidad_class);
r = indices(r);
%  r = (i-1)*cantidad_class + r;
ip = r(1:round(length(r)/3));
ie = r(round(length(r)/3)+1:length(r));
indice_prueba = [indice_prueba;ip];
indice_entrenamiento = [indice_entrenamiento;ie];
end
 
%Completamos las matrices
Xe = fs(indice_entrenamiento, :);
De = d(indice_entrenamiento, :);
Xt = fs(indice_prueba, :);
Dt = d(indice_prueba, :);
end